// System Unit
// RTTI

(*************)
(* Interface *)
(*************)
{$IFDEF Include_Modules_Header}

 { RTTI Visibility }
 Type
  TVisibilityClasses = Set of (vcPrivate, vcProtected, vcPublic, vcPublished);

 Const
 { These constants represent the default settings built into the compiler.
   For classes, these settings are normally inherited from TObject. }
  DefaultMethodRttiVisibility   = [vcPublic, vcPublished];
  DefaultFieldRttiVisibility    = [vcPrivate .. vcPublished];
  DefaultPropertyRttiVisibility = [vcPublic, vcPublished];

 { Minimal RTTI generation henceforth in this file }
 {$RTTI EXPLICIT METHODS([]) FIELDS([]) PROPERTIES([])}

{$ENDIF Include_Modules_Header}
(******************)
(* Implementation *)
(******************)
{$IFDEF Include_Modules_Implement}
{$ENDIF Include_Modules_Implement}
(******************)
(* Initialization *)
(******************)
{$IFDEF Include_Modules_Initialize}
{$ENDIF Include_Modules_Initialize}
(****************)
(* Finalization *)
(****************)
{$IFDEF Include_Modules_Finalize}
{$ENDIF Include_Modules_Finalize}
